 
(* ::Section:: *)
(* Solve3 *)
(* ::Text:: *)
(*Solve3 is equivalent to Solve, except that it works only for linear equations (and returns just a list) and uses the "high school algorithm" and is sometimes better than Solve for systems involving rational polyonomials..*)


(* ::Subsection:: *)
(* Examples *)
Solve3[{2 x==b-w/2,y-d==p},{x,y}]
